home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / prez.dir / 00218.ls < prev    next >
Encoding:
Text File  |  1995-08-01  |  545 b   |  22 lines
  1. on mouseUp
  2.   global gSPicStart, gSPicEnd, gSPicSprite
  3.   puppetSound("click down")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   puppetSound("click up")
  9.   set the ink of sprite the clickOn to 36
  10.   updateStage()
  11.   set cnum to the castNum of sprite gSPicSprite
  12.   put gSPicSprite
  13.   put cnum
  14.   put gSPicEnd
  15.   if cnum = gSPicStart then
  16.     set the castNum of sprite gSPicSprite to gSPicEnd
  17.   else
  18.     set the castNum of sprite gSPicSprite to cnum - 1
  19.   end if
  20.   updateStage()
  21. end
  22.